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6 MODULE SERVICES Bade *% *S pe iene Services -- Shareable Routines’ 
ADDRESSING, MODE \EXTERNAL = GENERAL) 


BEGIN 


! 
VRE RARER RRR ERATE AEA ATA ARERAA EE 


i COPYRIGHT (c) 1978, 1980, 1982, 1984 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED 


Hi oe SOFTWARE IS FURNISHED 7 A ‘es AND ices USED AND gt te 
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* 

® 

i 0 . 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. & 
. ® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
is AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. ® 
® 

ITY FOR THE USE OR RELIABILITY OF ITS * 
NOT SUPPLIED BY DIGITAL. * 
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999 Sette tt 


LR RRR ERRATA AEA EAA 
' 


le 
! FACILITY: ° 
Symbiont Services 


i ABSTRACT 
i This module provides a set of shareable routines used by symbionts. 


NAULWN | OODNAUESWWN SO DOODNAUS WN HOO ONOUSWH 


i ENVIRONMENT: 
i VAX/VMS user mode. 


own 
EWA ANINANWNAN ino nore 


! AUTHOR: Greg Robert, CREATION DATE: 26-Apr-1983 
i MODIFIED BY: 


' 

! 

: V3-008 RRB0014 Rowland R. Srod\ ey oo tS 
: Change the allocation of the I0B from 512 to 1024. 

: Previous to this poange Long filenames Be cause 
: the username and UIC to Srecepeet, The long filename 
was passed by the job controller in a message of 1 
! 

' 

‘ 

1 

i 


SOoCoooooooooooo 


Fd 
NOUS WN OO OONOAUESWNH— 


The print symbionts largest messa $. putter 10B) was 512. 
This change increases the I0B to 4. 


vV3-007 RRBOO13 Rowland R. 7 20-Jul-1984 
Change messages PSM$ NOMORET TEMS o SMBS NOMORE ITEMS, 
PSM$_INVSTRLEV to SMB$_INVSTRLEV, PSMS$_IRVSTMNBR to 


Be Be Be Os Be Be Se Se Be Se SH Se Se Se Se Se Se Se Ge Ge Fe Se Se SH SH SH Se oe Se Se Se Se Se Se Se Se SH SESH SF Se Se Se Se Se Se Se Se Se SHS Se Se esses ase 
PUPA BS BS ES ES BBE EB BWANA ANAND PPO PPUPONONONDY 2 2 SS SO OS 
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Symbiont Services -- Shareable Routines 15-Sep-1984 08:3 :05 VAX-11 Bliss-32 yee 04s 
14-Sep-1984 12:55:15 CPRTSMB.SRCJSERVICES.B32;1 
$038 ! SMB$_INVSTMSBR. 
0060 1! V3-006 GRROO12 Gregory R. Robert 21-0c t-1983 
R803 ! Disable user-allowed check in provide_service 
$068 1 V3-005 GRROO11 eee R. Robert 21-0CT-1983 
bees : Remove user argument optional parameter from provide_service. 
0066 1! V3-004 GRROO10 nGregery,R. Robert 18-Oct-1983 
484 : Fix improper bind statement in provide_service 
0069 1! 38-003 GRR3003 Gregory R. Robert 23-Aug-1983 
0070 1! Bugfixes, page_setup_modules, form_setup_modules, 
0071 1! sheet_feed, symbiont initiated pauSe_task and stop_stream, 
it ' hangup code, read and write item services 
0074 1! 3B-002 GRR3002 Gregory R. Robert 03-Aug-1983 
id : } Rewrite for new design. 
0077 1: 3B-001 GRR4003 Gregory R. Robert 29-Jul-1983 
0078 1! Created new module. 
0079 1! 
0080 1 !x* 
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¥04-000 ° 1eagee=} 8 Re 95:20:08 PANG LD Bk lege Fe eee 28S 9 023 

8 008 

8 bos LIBRARY ‘SYSSLIBRARY:LIB'; 

84 08 REQUIRE ‘LIBS:SMBDEF'; 

$2 Of REQUIRE ‘SRC$:SMBREQ'; 

87 83 EXTERNAL ROUTINE 

88 0 PSMSALLOCATE_DSB: NOVALUE, 

89 03 PSMSALLOCATE JOB: NOVALUE, 

90 03 PSMSDEALLOCATE_DSB: NOVALUE 

91 03 3 

9 3 

9 3 EXTERNAL 

oe PSMSSRV : BLOCKVECTORC,SRV_S_SRV, BYTE] 

96 

97 

eB FORWARD ROUTINE 


SMBS CHECK_FOR_MESSAG 
SMBSREAD_MESSAGE_ITE 
SMBSINITIALIZE 
SMBSREAD_MESSAGE 
SMB$SEND~TO_JOBCTL 


PSMSREPLACE é 
PSM$SCHEDULE_NON_AST 
PSMSWAIT_FOR_NON_AST “ | 


E 
M 


READ_MAILBOX : NOVALUE, 
READ _MAILBOX_AST : NOVALUE, 
WRITE_MAILBOR : NOVALUE 
OWN 
NON_AST_QUEUE: VECTOR (2), ! Non-ast queue header 
MESSAGE_QUEUE: VECTOR (2), 


} sege queue header 
User AST routine Se 
User specified stream Limit 
! Input mailbox 

Output mailbox channel 
Output mailbox iosb 


MESSAGE_AST_ROUTINE, 
MAXIMUM STREAMS, 
IMBX_CHAN: WORD, 
OMBX~ CHAN: WORD, 

OMBX~I0SB: VECTOR £4, WORD) 


Be Se Se Se Be Se Be BH Se Se Se Se Oe Be Se Ss Be Se Se Ss Se Se Se Be Ge Se Se oe Oe Se Se oe Sete Ge Sete Ge Ge Se oe 
a a kk dd 

poole ele elojejejleleleleleleleleololeloleolelelelelolololololo) 

DWNAUESWN (OO DNA NEW O OONAU EWN 9 CO ODNOUSWNRVIWN 
ee ee a ee ee ee ee ee ee ee ee a ee ed ed ed ed 


ae cae ce ee ed cee a ee a ce ee ee ee ce ce ec ee a ce ede ed 
NUNS Ne APU ABOSH os ARS 
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yoe~008 CHECK_FOR MESSAGE 12-88-1938 05:30:02 PRTSMB.SRC SeAviCES 03951 . (3) Vi 
; 1s6 1968 } GLOBAL ROUTINE SMBSCHECK_FOR_MESSAGE %SBTTL 'CHECK_FOR_MESSAGE' 
; 136 1071 BEGIN 
s 127 19%6 '+4 
; tee 107 : 
3 194 1074 ! FUNCTIONAL DESCRIPTION: 
; : , 192? Checks if the message queue is empty. 
: 132 1077 ' INPUT PARAMETERS: 
; ¥ 1078 ' NONE 
3; «(134 1079 ' 
; 132 1080 ! IMPLICIT INPUTS: 
s 1% 1081 ‘ <tbs> - Message queue header. 
; 137 1356 e! 
; is 108 2 ! OUTPUT PARAMETERS: 
; 159 1084 § ! NONE 
: 140 1085 ' 
s 141 1086 2 ! IMPLICIT OUTPUTS: 
: 142 1087 2! NONE 
> 143 1088 2! 5 
3 (144 1089 2 ! ROUTINE VALUE: 
3; 145 1090 2! SS$_NORMAL - A message is waiting. 
> 146 1091 2! <tbs> - The message queue is empty. 
3 1467 Mb 2! 
; 148 109 2 ! SIDE EFFECTS: 
7 «149 1094 2! NONE 
; 399 1095 2! 
s 33} 1096 2 !-- 
s 932 1097 2 
3; 55 108 2 IF .MESSAGE_QUEVE [0] EQL MESSAGE_QUEUE (0) 
3 156 1099 2T 
: 155 1100 2 RETURN 0 
s 336 1101 2€E 
; 157 1102 2 RETURN SS$_NORMAL; 
; 6138 1103 2 
; «#159 1104 1 END; 

-TITLE SERVICES Symbiont Services -- Shareable Routine 
: s 

-IDENT \V04-000\ 

-PSECT DATA,NOEXE,2 


00000 NON. AST QUEUE : 
00008 MESSAGE_QUEUE: 


00014 MAXIMUM_STREAMS: 
00018 IMBX_CHAN: 

OOO1A OMBX_ CHAN: 
0001¢ omex_10SB:- 


. LK g 
00010 MESSAGE_AST ROUTINE: 


4 
2 
2 
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yO0~000 CHECK FOR MESSAGE ‘ 1o=808-1982 9S: 38:92 “ 


<o | 


-32 V4.0-7 
ER 


$$ p 
PRTSMB.SRCIS age 33 


4 
VICES.B32;1 (3) 
-BLKB 8 


CLOSE 

eV. LBRSINI_ CONTROL 

[BRSSET LOCATE 

SFREE_VM 

SC 

SC_R 

$C 

+} YD TRSCOP 

FREE Er Dk, STREFREET _DX_R4 
RSLEFT 


“EXTRN PSMSALLOCATE~10B 
[EXTRN PSMSDEALLOCATE_DSB 
: PSMSSRV 
-PSECT CODE,NOWRT,2 

0000 00000 ENTRY SMBS CHECK FOR_MESSAGE, Save nothing 

9E 00002 MOVAB MESSAGE_QUOEUE> RO 
9007 CMPL MESSAGE - “QUEUE, RO 
OE CLRL ~— RO 


0 

010 

011 18: MOVL #1, RO 
014 R 


wu 
oo 
oo 


000° 
000° 


50 01 


ovlvo°o-9o 
fof fen— 
ooooo°oo 


; Routine Size: 21 bytes, Routine Base: CODE + 0000 
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sete 
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GET_NEXT_ITEM 14-Sep-1984 1 :15 PRTSMB.SRC SERVI ICES.832;1 
05 1 GLOBAL ROUTINE SMBSREAD_MESSAGE_ITEM ( %SBTTL est ext. tien" 
BS MESSAGE , 
0 CONTEXT , 
08 ITEM : REF SLONGWORD, 
09 BUFFER 


SIZE: REF SWORD 


BEGIN 
PARAMETER_INDEX_ (MESSAGE, CONTEXT, ITEM, BUFFER, SIZE); 


e¢ 


i FUNCTIONAL DESCRIPTION: 
Parses and returns the next item in the message. 


INPUT PARAMETERS: 
MESSAGE Descriptor of message buffer. 


CONTEXT - Longword context, next item pointer. 
ITEM - Longword to receive item code. 
BUFFER - Descriptor of buffer to receive item. 
SIZE - Word to receive item size. 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
SS$_N a7 oe - Normal successful completion. 
L1B$_] Invalid argument. 
SMBS — “NOMORE ITEMS- Item List exhausted. 5 
ove - Any return from LIBSSCOPY_xxxx routines. 


SIDE EFFECTS: 
Context field updated to point at next item or cleared to 
zero when last item +1 is read. 


AUEWN OO OONAUESWN —O OONAUSWN—OOONAUSWR—O 


= ADDRESS, 
MSG_SIZE: INITIAL (0) 


BIND 
I_PTR = .CONTEXT : REF $BBLOCK 


Get the size and address of the message. 
STRSANALYZE_SDESC (.MESSAGE, MSG_SIZE, MSG_ADDRESS); 
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} Advance to next item, or first item if starting. 
HF gl-PTR EQL 0 
I_PTR = .MSG_ADDRESS + SMBMSG$S_REQUEST_HEADER 


ELSE 
I_PTR = .1_PTR + .I_PTRESMBMSG$W_ITEM_SIZE] + SMBMSGSS_ITEM_HEADER; 


! If end of message (item code eql 0) or past end of message buffer 

then reset context and return no more items. 

1F «1 -PTRESMBMSGSW_ITEM_CODE] EQL 0 OR .I_PTR GTRA (.MSG_ADDRESS + .MSG_SIZE) 
BEGIN 


1_PTR = 0; 
Ae SMB$_NOMOREI TEMS; 


Return item code and item size if requested. 


ITEMC) = .1_PTRCSMBMSG$W_ITEM_CODE]; 
IF PARAMETER_PRESENT_ (SIZE) 


SIZEC) = .1_PTRCSMBMSG$W_ITEM_SIZE); 


Copy the item to the user buffer 

COPY_R_DX_ (I_PTRCSMBMSGSW_ITEM_SIZEJ, .1_PTR + SMBMSG$S_ITEM_HEADER, .BUFFER); 
SS$_NORMAL 

END; 


0004 00000 .ENTRY SMBSREAD_MESSAGE_ITEM, Save R2 
SE 08 C2 00002 SUBL2 #8, 
04 AE D4 00005 CLRL MSG SIZE 
52 08 AC DO 00008 MOVL CONTEXT, R2 
SE DD 0000C PUSHL SP 
08 AE 9F OO00E PUSHAB MSG_SIZE 
04 aC DD 00011 PUSHL mg SSAGE 
000000006 00 03 FB 00014 CALLS #3, STRSANALYZE_SDESC 
62 D 90018 TSTL = (RO) 
06 12 0001D BNEQ ~'1$ 
62 6E 04 C1 0001F ADDL3 #4, MSG_ADDRESS, (R2) 
0B 11 4 3 BRB $ 
50 00 B2 3¢ 00025 1$ MOVZWL @0(R2), RO 
50 62 CO 990 9 ADDL2 (R2), RO 
62 04 Ag 4 002¢ MOVAB 4(ROS, (R2) 
50 62 DO 00030 28 MOVL  (R2), RO 
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-7%4 
_NEXT_ITEM 14-Sep=1 PRTSMB.SRCISERVICES.B3 


Functional Description: 
?desc 


Formal Parameters: 
a ?des 

Implicit Inputs: 
none 


Implicit Outputs: 
none 


Returned Value: 
non 


Side Effects: 
none 


GLOBAL ROUTINE PSMSREPLACE ( XSBTTL ‘PROVIDE_SERVICE' 
SERVICE CODE 


=D — od ed ouonwo — 


[OOO NAUES WN COONOUS WOO 


: REF SLONGWORD, 


BEGIN 
BIND SERVICE = PSMS$SRV C.SERVICE_CODEC], 0,0,0,0] : SBBLOCK; 


POPOMNPININOPENENofonononononenononofrefnofnoenonor 
SN NNN NN SSA AAA AA AOI 


VIEW $0 ODNAUSWN “ODO DNAUESWN—ODOONOW S 


=PIPIPIPINIANININIPYNDNYAINININININININININININININININININININ|N) 2 9 9 
“~ 


2 

44 $8 Validate the service code 
28 24 2 IF .SERVICE_CODEL] EQL 0 

28 25 OR .SERVICE_CODECJ GEQU PSM$K_MAX 

28 26 N 
28 27 CODEERR_ ; 
28 28 
286 29 : 
44 $ Check that this service may be user supplied 
289 32 istAl Low any user supplied service for FT1 

,es 

291 34 'w!]F NOT .SERVICECSRV_V_USER_ALLOWED) 
292 35 'e!TH 
293 36 'a! CODEERR_ ; 
294 37 

295 38 
$96 Zz Update the table with the routine address 
298 41 2 SERVICECSRV_A_SERVICE] = .RTNADR; 

344 $5 

00 4 , 

$05 te Mark the service as user supplied 

303 46 SERVICECSRV_V_USER_SUPPLIED] = 1; 

38 48 2 SS$_NORMAL 

306 49 

307 50 END; 
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OVIDE. SERVICE -Sep e=19 
0004 900 ENTRY PSMSREPLACE Save R2 
50 04 BC 04 78 0000 ASHL aseRVICE CODE, RO 
52 0000000060040 9€ 0000 MOVAB BcasesttKo Re 
04 BC D5 0000F TSTL  @SERVICE_CODE 
06 13 00012 BEQL ~=s«d1$ 
17 04 BC 01 00014 CMPL @SERVICE_CODE, #23 
OF 1F 00018 BLSSU .2$ 
01 DD OOO1A 1$ PUSHL #1 
01061154 8F DD O0001C PUSHL #17174868 
000000006 00 02 FB 00022 CALLS #2, LIBSSTOP 
62 08 AC D0 4 9 2% MOVL RTNADR, (R2) 
08 A2 02 88 0002 BISB2 #2, 8(R2) 
50 01 D0 00031 MOVL #1. RO 
04 00034 RET 


; Routine Size: 53 bytes, Routine Base: CODE + 0099 
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GLOBAL ROUTINE SMBSINITIALIZE ( %SBTTL ‘INITIALIZE_SYMBIONT' 
ZeRVE LUCE AL EVEL : REF SLONGWORD, 


STREAMS : REF SLONGWORD 


PARAMETER_INDEX_ (STRUCTURE_LEVEL, AST_ROUTINE, STREAMS); 


u” 
=< 
™~ a WMAVIVIVIVIVIVIVA = 3 


MFWN "OO ODNAOUES AN ("OVO ONOUSWNS =o 


t 
| 


oS 
>o 
crsS 


BEGIN 


l+44 
1 
: FUNCTIONAL DESCRIPTION: 
Initializes the internal symbiont database and establishes 
communications with the controlling process. 


INPUT PARAMETERS: 
STRUCTURE LEVEL = Address of a longword containing structure level of caller. 
- € 


SIDE EFFECTS: ea 
Symbiont database initialized, mailbox channels assigned, 
AST mailbox read posted. 


6 
6 
6 : 
6 : 
6 : 
6 : 
6 ' 
6 ! AST_ROUTINE Address of the entry mask of an AST routin 
6 ; to be called when messages are received. 
6 ; STREAMS = Longword containing the maximum number of 
streams allowed for this symbiont, default 1. 
7 ' IMPLICIT INPUTS: ; 
7 ! <tbs> - Symbiont database. . 
7 : SYSS$SINPUT - Input mailbox from controlling process. 
, SYSSOUTPUT = Output mailbox to controlling process. 
7 ! OUTPUT PARAMETERS: 
¢ NONE 
8 ! IMPLICIT OUTPUTS: 
NONE 
' ROUTINE VALUE: 
! SS$_NORMAL - Normal, successful completion. 
: LIBS_INVARG - Invalid arguments. | 
ea - Any system service failure. 
} 
9 i 
' 
i 


OO 0000000090000 00 000000 


LOCAL 
IF .STRUCTURE_LEVELC) NEQ SMBMSG$K_STRUCTURE_LEVEL 
RETURN SMB$_INVSTRLEV; 
RETURN_IF_ERROR_ (SASSIGN (DEVNAM=SDESCRIPTOR ('SYSSINPUT*), CHAN=IMBX_CHAN)); 
RETURN_IF_ERROR_ (SASSIGN (DEVNAM=SDESCRIPTOR ('SYSSOUTPUT'), CHAN=OMBX_CHAN)); 


INIT_QUEUE_HEADER_ (NON AST QUEUECO}) ; 
INI TTQUEUE~HEADER~ (MESSAGE ~QUEUE(O)); 


a a ee ee ee ee ee a ee a ee a a a a ee dee 
AAAA AAAI IPUPSPDNYPDNYAPINININININPONINPINIAIPINYININININININPYNPIPYNIPONIPONINPINYNONPPoNoponoponoponopnonorfryd 


: 
: 
; 
2 
; 
é 
: 
§ 
2 
; 
; 
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SERVICES Sym 
y0e~000 INI 
: 366 130 
; 367 130 
: 5368 131 
; 69 131 
H 70 131 
: 30) 13] 
3 338 13] 
3; 374 131 
s 375 131 
; 376 131 
: 37 131 
: 378 132 
; 379 132 
: 380 132 
> «4381 132 
; 382 132 
; 383 132 
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rvices == Shareable Routines 
SYMBIONT 


MAXIMUM_STREAMS = 
IF PARAMETER, PRESENT. 


MAXIMUM_STREAMS = 
RETURN_IF_ERROR_ 


(STREAMS) 
«STREAMS; 


READ_MAILBOX ( 
SS$_NORMAL 
END; 


n 
L 
IF PARAMETER, PRESENT _ (AST_ROUTINE) 
MESSAGE_AST_ROUTINE = .AST_ROUTINE; 
2 
2 
2 
2 
1 


AX-11 Bliss-32 Vege 235 
PRTSMB.SRCJSERVICES.B32;1 


($PURGWS (INADR=UPLIT (0, &X"7FFFFFFF'))); 
PSMSALLOCATE_ -{ OP aye UPLIT (1024)); 


54 55 SO 4E 49 246 53 59 53 O00cE P.AAB: ASCII \SYSSINPUT\ 
00000009 000D8 P.AAA: <LONG 9 
00000000" 000D¢ [ADDRESS P.AAB 
55 50 54 55 4F 24 53 59 53 OOOEO P.AAD: ASCII \SYS$OUTPUT\ 
OOOEA ‘BLKB 2 
0000000A OOOEC P.AAC: <LONG 10 
00000000 O00FO “ADDRESS P.AAD 
7FFFFFFF 00000000 OO0F4 P.AAE: <LONG 0, 2147483647 
00000400 OOOFC P.AAF: “TONG 1624 
EXTRN SYSS$ASSIGN, SYSSPURGWS 
000¢ 09000 .ENTRY SMBSINITIALIZE, Save R2,R3 
53 000000006 00 9 00002 OVAB  SYSSASSIGN, R3 
52 0000' CF 9€ 00009 MOVAB NON ASI "OuEUE. R2 
SE 04 C2 0000E SUBL2 #4, 
01 04 BC D1 00011 CMPL 3S TRUCTURE LLEVEL, #1 
08 13 00015 BEQL si 
50 000000006 8F 00 00017 MOVL § #SMBS$_INVSTRLEV, RO 
04 0001E RET 
7E 7C OOOTF 1$: CLRQ  =(SP) 
18 Ad OF 900 1 PUSHAB IMBX_CHAN 
Bl AF 9F 00024 PUSHAB P.AA 
63 04 FB 00027 CALLS #4, SYSSASSiGN 
66 50 59 O002A BLBC STATUS, 4$ 
7E 7C 0002D CLRQ = = (SP) 
1A A2.OOF O00¢F PUSHAB OMBX_CHAN 
B7 AF 9F 000 : PUSHAB 
63 04 FB 0003 CALLS #4, SYSSASSIGN 
58 50 E9 00038 BLBC TATU 
6 62 SE 00038 MOVAB NON rast QUEUE, NON_AST_QUEUE 
04 A 62 9E 0003 MOVAB ON “QUEUE. NONTAST~QUEUE +4 
08 A 08 Ad YE 0004 MOVAB MESSAGE~QUEUE, MESSAGE QUEUE 
OC OA 08 A2 YE 0004 MOVAB MESSAGE-QUEUE, MESSAGE QUEUE +4 
02 6C 91 0004C CMPB ss (AP), «#2 
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000000006 %° 
FF7D 
0000V 
148 bytes, Routine Base 


; Routine Size: 


D 14 
Srevices bree tent Services -- Shareable Routines 16-Sep-1984 9g: 30:03 AX-11 
v04-000 R SSAGE 14-Sep-1984 55:15 PRTSMB 


; 385 1 § 1 GLOBAL ROUTINE SMBSREAD MESSAGE ( %SBTTL ‘READ_MESSAGE' 

; 86 1 1 STREAM : REF S$CONGWORD, 

; 387 1328 1 BUFFER , 

; 388 1329 1 REQUEST : REF $SLONGWORD, 

; 389 1330 1 SIZE : REF SWORD '*! NOT REFERENCED ! 

; 390 133! 1 d= 

3 (a 1 ¢ § BEGIN 

; Hs : $2 PARAMETER_INDEX_ (STREAM, BUFFER, REQUEST, SIZE); 

> 394 1335 é '++ 

3 399 1336 2! 

3; 396 133/ § ! FUNCTIONAL DESCRIPTION: : 

; ve 1336 : Copies the next message into the caller's buffer. 

; 398 1339 2! 

; 1340 2 ! INPUT PARAMETERS: 

; 400 1341 2! STREAM - Address of longword to receive stream number. 
: 401 1342 2! BUFFER - Descriptor of output buffer. 

; 402 1343 2! REQUEST - Address of sengvers to receive message request code. 
; 403 1344 2! IZE - Address of word to receive size of message. 
> 404 1345 2! 

; 405 1346 2 ! IMPLICIT INPUTS: 

; 406 1347 2! <tbs> - Message queue header. 

; 407 1348 2! 

; 408 1349 2 ! OUTPUT PARAMETERS: 

; 409 1350 2! NONE 

: 410 toi 2 

3 613 1352 2 ! IMPLICIT OUTPUTS: 

: 412 1353 2! NONE 

3s 4615 1354 2! 

> 414 1355 2 ! ROUTINE VALUE: ; 

3 415 tae a SS$_NORMAL - Normal successful completion. 

> 416 i357 ¢! LIBS_INVARG - Invalid argument. 

: 417 1358 2! oe - Any return from LIBSSCOPY_xxxx routines. 
; 418 1359 2! 

3 419 1360 2 ! SIDE EFFECTS: 

; 420 1361 2! The mearege is dequeued from the message queue. If no message 
; 421 1362 2! is available the thread is blocked until one is received. 
; 422 13635 2! 

3: 423 1364 2 !-- 

> 424 1365 2 

; 425 1366 2 LOCAL 

; 426 1367 2 DSB: REF $BBLOCK, 

3; 427 1368 2 MESSAGE : REF $BBLOCK 

; 428 1369 § : 

; 429 1370 c : 3 

; $30 137) ; Hibernate until there is work to do 

: 432 1378 WHILE REMOVE_HEAD_ (DSB, MESSAGE QUEUE) DO $HIBER; 

3 $3? 1378 DSB = .DSB -SBYTEOFFSET (DSB_Q_GLINKS); 

3 tH 1376 MESSAGE = .DESC_ADDR_ (DSBCDSB_Q_DESC)); 

: 437 1378 REQUESTC] = .MESSAGECSMBMSG$W_REQUEST_CODE); 

; 438 1379 IF PARAMETER_PRESENT_ (SIZE) 

3; «439 1380 THEN 

; “4 135) $BBLOCK C.SIZE,0,0,16,0) = .DESC_SIZE_ (DSBCDSB_Q_DESC)); 


; Routine Size: 90 bytes, Routine Base: CODE + 0194 
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SERVICES Symbiont Services -- Shareable Routines 1bese =1984 :30:05 AX-11 Bliss-32 V4.0-74 Page 15 
Rivets READ MESSAGE 1a-Sep-19 4 95:30:92 PATSMB SREISERVI CEs. 4551 7 
; 6 85 STREAMC] = .MESSAGECSMBMSGS$B_STREAM_INDEX]; ; 
: aah BS COPY_DX_DX_ (DSBCDSB_Q_DESCJ], .BUFFER); ; 
: 446 1387 2 PSMSDEALLOCATE_DSB (.DSB); ; 
> 447 1388 ; 
: 448 1389 2 SS$_NORMAL ; 
: 4469 1390 2 3 
: 450 1391. 1 END; ; 
.EXTRN SYSSHIBER ; 
000¢ 00000 .ENTRY SMBSREAD_MESSAGE, Save R2,R3 : 1326 ; 
52 0000" DF OF 00002 1$: REMQUE @MESSAGE-QUEUE, DSB + 1373, ; 
09 1C 00007 BVC 2$ : ; 
000000006 00 00 FB 00009 CALLS #0, SYSSHIBER : ; 
FO 11 00010 BRB 1 : 3 
51 0C A2 D0 00012 28: MOVL 12(DSB), MESSAGE : 1376) ; 
oc BC 61 3C 00016 MOVZWL (MESSAGE), @REQUEST ; 1378 ; 
04 6C 91 OOO1A CMPB (AP), # : 1379) ; 
OD 1F 0001D BLSSU 3$ ; | ; 
10 AC DS OOO1F TSTL  16(AP) : ; 
08 13 00022 BEQL  3$ ; ; 
50 52 D0 00024 MOVL DSB, RO + 1381) ; 
10 BC 08 AO B0 00027 MOVW 8(RO), aSIZE : ; 
04 BC 03 Al 9A 0002C 3S: MOVZBL 3(MESSAGE), a@STREAM ; 1383. ; 
08 A2 9F 00031 PUSHAB 8(R2) : 1385) F 
08 AC DD 00034 PUSHL BUFFER : ; 
000000006 00 02 FB 00037 CALLS #2, STRSCOPY_Dx : ; 
53 50 DO 0003E MOVL RO, STATUS ; : 
09 53 £8 00041 BLBS STATUS, 4$ : ; 
53 DD 00044 PUSHL STATUS : 5 
000000006 00 01 FB 00046 CALLS #1, LIBSSIGNAL : : 
52 DD 0004D 4$ PUSHL DS : 1387 | ; 
000000006 90 01 FB 0004F CALLS #1, PSMSDEALLOCATE_DSB ; ; 
50 01 DO 00056 MOVL #1, : 1391 : 
04 00059 RET : : 
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w5e 008 SCHEDULE .NON-AST 1a-8ep-19 4 95:20:08 LORTSMB’SREISERVI CES. 035; 1 2 (8) 
; 45 1392 1 GLOBAL ROUTINE PSMSSCHEDULE_NON_AST ( %SBTTL ‘SCHEDULE_NON_AST' 3 
; 45 13935 1 PARAMETER ; 
: 454 1394 1 = $ 
> 455 1395 BEGIN 3 
> 456 1396 '++ Z 
; 457 1397 : : 
; 458 1398 ! FUNCTIONAL DESCRIPTION: 3 
; 459 1399 : Schedules execution at non-ast level. : 
: 460 1400 ! 3 
: 461 1401 !' INPUT PARAMETERS: : 
: 462 1708 e! PARAMTER - Descriptor of a paramter block to be queued to F 
; 463 140 § ! non-ast level. : 
: 464 1404 ! 3 
; 465 1405 2 ! IMPLICIT INPUTS: F 
> 466 1406 2! <tbs> - Work queue header. : 
; 467 1407 2! <tbs> - Descriptor queue header. 3 
; 468 1408 2! : 
: 469 1409 2 ! OUTPUT PARAMETERS: 3 
: 470 1410 2! NONE F 
: 471 1411 2! ; 
3 472 Vole 2 ! IMPLICIT OUTPUTS: ; 
3; 473 1415 2! NONE 5 
> 474 1414 2! 3 
; 475 1415 2 ! ROUTINE VALUE: ; 
> 476 1416 2! SS$_NORMAL - Normal, successful completion. ; ; 
; 477 1417 2! see - Any return from LIBSSCOPY_xxxx routines. : 
; 478 1418 2! 3 
3; 479 1419 2 ! SIDE EFFECTS: : ; 
; 480 1420 2! The parameter block is copied to an internal buffer and placed in 5 
: 481 1421 2! the work queue. A wakeup is scheduled if the queue was empty. 5 
; 482 1422 2! 
> 483 1423 2 !-- 
3; 484 1424 2 
; 485 1425 2 LOCAL 
; 486 1426 2 DSB : REF $BBLOCK 
: 487 1427 2 5 
: 488 1428 2 
3: «489 1429 2 PSMSALLOCATE_DSB (DSB); 
; 490 1430 2 
5 rt 4 133 § COPY_DX_DX_ (.PARAMETER, DSBCDSB_Q_DESC]); 
; 493 1435 2 IF INSERT_TAIL_ (DSBCDSB_Q_QLINKSJ, NON_AST_QUEUE) ' True if empty 
: 495 1435 : SIGNAL_IF_ERROR_ (SWAKE ()); 
; 496 1436 
: 497 1437 2 SS$_NORMAL 
: 498 1438 2 
3; 499 1439 1 END; 
-EXTRN SYSS$WAKE 
000C 00000 -ENTRY PSMSSCHEDULE_NON_AST, Save R2,R3 : 1392. 
53 000000006 90 5 00002 MOVAB LIBS$SIGNAL, R3 : 
5E 04 C2 00009 SUBL2 #4, SP : | 
5E DD 0000C PUSHL SP > 1429, 


14 
S evices syapions Services -- Shareable Routines 18 -Sep- 138% 0g: 3: 9 AX-11 Bliss-32 v4.0- oss. 
v04-00 SCHEDULE _NON_AST 14- ~hep- PRTSMB.SRC SEAVI CES.B32;1 
000000006 00 01 FB 0006 CALLS PSMSALLOCATE _DSB 
04 AC DD 0001 PUSH PA Akan 
£ 06 =A C1 00018 ADDL : D ca nad P) 
000000006 Q FB 0001D CALLS ; > STRSCOPY_DX 
D0 00024 MOVL RO, STATUS 
0 7s 909 7 BLBS STATUS, 1$ 
52 DD O002A PUSHL STATUS 
63 01 FB 0002C CALLS #1, LIBSSIGNAL 
0000" DF 00 BE OF 999 F 1$: INSQUE @DSB, @NON_AST_QUEUE+4 
14 12 00035 BNEQ 2 
7E 7C 00037 CLROQ 
000000006 00 08 FB 00039 CALLS re. "Sysswane 
52 DO 00040 MOVL RO, STAT 
05 52 EB 00043 LBS ‘STATUS, 33 
52 DD 00046 PUSHL STATUS 
63 01 FB 00048 CALLS , LIBSSIGNAL 
50 01 DO 00048 2$ MOVL a: RO 
04 0004E RET 


; Routine Size: 79 bytes, Routine Base: CODE + O1EE 
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VOq~000 SEND _RESPONSE = 1=8eb-1984 13:55:15 OER SERVICES 03951 i 


PRTSMB.SRCJS 


23 
oC 
wo 


50 4 GLOBAL ROUTINE SMBSSEND_TO JOBCTL ( %SBTTL 'SEND_RESPONSE' 
50 4 STREAM : REF $LONGWORD, 

50 4 REQU eet REF $LONGWORD, 

50 4 ACCOUNTING, 

50 CHECKPOINT 

50 DEVICE_STATUS =: REF $LO ONGWORD , 

50 Peon : REF VECT 

50 ) = 

50 BEGIN 

51 P PARAMETER_INDEX_ (STREAM, REQUEST, ACCOUNTING, CHECKPOINT, 
51 DEVICE_STATOS, ERRORS; 


++ 


FUNCTIONAL DESCRIPTION: 
Sends a response to the controlling process 


! INPUT PARAMETERS: 
STREAM 


REQUEST 
ACCOUNTING 
CHECKPOINT 
iS STATUS 


Stream number. 

Coptional] Request iy responded to. 
Coptional] Descriptor of accounting area. 
Coptional Descriptor of checkpoint area. 
Coptional] Device status 

Coptional] Counted vector of condition codes. 


IMPLICIT INPUTS: 
NONE 
OUTPUT — 


i IMPLICIT 1 OUTPUTS: 


' ROUTINE VALUE: 
S$S$_NORMAL - Normal, successful completion. 
ties. INVARG - Invalid argument. 


SIDE EFFECTS: 


' 
i 
i 
i 
' 
i 
' 
i 
' 
i 
' 
i 
' 
i 
i 
i 
i 
i 
i 
' 
i 
! 
i 
' 
i 
' 
i 
- A mailbox message is sent to the controlling process. 
ie 


LOCAL 

: REF SBBLOCK, 
MSG_SIZE, 
MSG-ADDR : REF S$BBLOCK, 
ACC"SIZE : INITIAL (0). 
ACCADDR, 
CKP7SIZE INITIAL (0), 
CKP"ADDR, 
DEV7SIZE : INITIAL (0), 
ERR~SIZE : INITIAL (0). 
MAX"SIZE : INITIAL (0), 
REQ”SIZE : INITIAL (0) 
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. 1 
E oB5e31 (9 


SE 
vo 


3 228 1497 ' Get size of request item 

3 OOF 1498 : 

; 560 1499 IF PARAMETER_PRESENT_ (REQUEST) 

3 638) 1500 THEN 

; 266 1501 BEGIN 

; 1306 REQ_SIZE = 4; 

: 564 150 IF TREQUESTC) EQL SMBMSG$K_START_STREAM 

> 565 1504 THEN 

> 566 1505 3 MAX_SIZE = 4; 

3; 636r 1506 2 END; 

; 568 1507 2 

; 569 1508 § é 

; 2/0 1299 } Get size of accounting data. 

; 2f¢ ae ; Md PARAMETER_PRESENT_ (ACCOUNTING) 
; 574 1218 2 STRSANALYZE_SDESC (.ACCOUNTING, ACC_SIZE, ACC_ADDR); 
: Sts 1514 2 

; 576 ie = : 

Orr 1516 2 ! Get size of checkpoint data. 

> $78 1517 2! 

; t4 1218 § IF PARAMETER_PRESENT_ (CHECKPOINT) 

; SB 1520 2 STRSANALYZE_SDESC (.CHECKPOINT, CKP_SIZE, CKP_ADDR); 

> 582 1521 2 

; ws 1522 2 : 

> «584 1523 2! Get size of device status item 

s jee 1524 2! 

; 586 1525 2 IF PARAMETER_PRESENT_ (DEVICE_STATUS) 

; 587 1526 2T 

; 588 1527 2 DEV_SIZE = 4; 

; 589 1528 2 

: 590 1529 2 é 

5 Sv 1530 2 ! Get size of error data 

; 592 1531 2! 

; 593 1532 2 IF PARAMETER_PRESENT_ (ERROR) 

3; 594 1533 2 THEN 

; 595 1534 2 ERR_SIZE = .ERROR(O) * 4; 

: 596 1535 2 

; 597 1536 2 

; 598 1537 2 ! Compute maximum message size 

; 599 1538 2! 

; 944 1373 2 MSG_SIZE = SMBMSG$S_REQUEST_HEADER ! = message header 

; 602 1541 $ + SMBMSG$S_ITEM_HEADER ! = request_response item header 
3 rst 1346 § + .REQ_SIZE ! = request_response size 

; 605 1544 2 + SMBMSG$S_ITEM_HEADER ! = accounting_data item header 
; one 1362 $ + .ACC_SIZE ! = accounting_data size 

; 608 1547 2 + SMBMSG$S_ITEM_HEADER ! = checkpoint_data item header 
5 st 1368 2 + .CKP_SIZE ! = checkpoint_data size 

, OTT 1550 + SMBMSG$S_ITEM_HEADER ! = device_status item header 

; ois 1331 + .DEV_SIZE ! = device_status size 

; 614 1888 + SMBMSG$S_ITEM_HEADER ! = condition vector item header 
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ss- . 
PRTSMB.SRCISERVICES. 
- condition vector size 
- maximum streams item header 


! = maximum streams size 


- trailing 0 longword 


UCTURE LEVEL; 
WLEVELT; 


ST_RESPONSE; 


-ACC_SIZE; 
SMBMSG$K_ACCOUNTING_DATA; 


POINT_DATA; 
G_ADDR) ; 


J 14 
sree tone Services -- Shareable Routines 16-Sep-19 
SEND_RESPONSE 14-Sep-19 
1228 + .ERR_SIZE ! 
1556 + SMBMSG$S_ITEM_HEADER ! 
1557 + .MAX_SIZE : 
1558 
1559 + 4; ' 
1a § 

1206 } Allocate a DSB and reserve sufficient space for 
1564 PSMSALLOCATE_DSB (DSB, MSG_SIZE); 

1365 § MSG_ADDR = .BESC_ADDR_ (DSBCDSB_Q_DESC)); 

1567 2 

1288 § Request header. 

1570 2 Oe aoeatientone ete tu CODE] = _MSG$_SMBINI; 
1571 2 MSG_ADDRCSMBMSG$B-STRUCTURE_LEVEL] = SMBMSG$K_STR 
1378 2 '*! MSG _ADDRE $G$B8 UCTURE_LEVEL] = SMBMSG$K 
1573 2 MSG_ADDRCSMBMSG$B_STREAM_INDEX]~= .STREAML); 

1328 § MSG_ADDR = .MSG_ADDR + SMBMSG$S_REQUEST_HEADER; 
1576 2 

1577 2 ! Request status item. 

1578 2! 

1579 2 IF .REQ_SIZE NEQ 0 

1580 ¢ THEN 

1581 N 

1582 3 MSG_ADDRCSMBMSG$W_ITEM_SIZE] = .REQ SIZE; 
1583 3 MSG_ADDRCSMBMSG$W_ITEM_CODE] = SMBMSG$K_REQUE 
1584 3 MSG_ADDR = .MSG_ADDR + SMBMSG$S_ITEM_HEADER; 
1585 3 MSG_ADDRCPSMSL_J = .REQUESTC); 

1586 3 MSG_ADDR = .MSG_ADDR + .REQ_SIZE; 

1587 2 3 

1588 2 

1589 2 , , 

1590 2 ! Accounting data item 

1591 2! 

1592 IF .ACC_SIZE NEQ 0 

1593 THEN 

1594 BEGIN 

1595 MSG_ADDRCSMBMSG$W_ITEM_SIZE] = 

1596 3 MSG_ADDRUSMBMSG$W_ITEM_CODE) = 

1597 ; MSG_ADDR = .MSG_ADDR + SMBMSG$S_ITEM_HEADER; 
1598 MSG_ADDR = CHSMOVE (.ACC_SIZE, TACC_ADDR, .MSG_ADDR); 
1599 END; 

1600 

1601 ; 

160¢ ! Checkpoint data item 

160 : 

1604 IF .CKP_SIZE NEQ 0 

1605 THEN 

1606 N 

1607 MSG_ADDR rtp re Pe TS = .CKP_SIZE; 
1608 MSG_ADDRLSMBMSG$W"ITEM_CODE) = SMBMSG$K CHECK 
1609 “ADDR = .MSG_ADDR +” SMBMSG$S_ITEM_HEADER; 
1610 MSG_ADDR = CHSMOVE (.CKP_SIZE, [CKP_ADDR, .MS 


633.1 


Page 20. 
. (9). 


SERVICES Symbiont Services -- Shareable Routines 16-Sep- AX-11 Bliss-32 V oat 4 Page 21) 
V YA55 SEND RESPONSE 14- =tepe 1982 5: 39:92 PRTSMB.SRC SEAVIC ES.B 635-1 . 5) 
; 67 1611 END; 

: 67 1ol¢ 

>; 674 161 

; 675 1614 ' Device status item. 

; 676 1615 ! 

3; 677 1918 IF .DEV_SIZE NEQ 0 

; 678 161 THEN 

: 679 1618 BEGIN 

; 680 1619 MSG_ADDRCUSMBMSGSW_ITEM_SIZE] = .DEV_SIZE; 

; 681 1630 MSG ADDR SMORSGSY, ITEM_CODE] = SMBMSG$K_DEV ICE STATUS; 

s 68 1621 S DR = BsG A DR + SMBMSG$S EIGALMEADER : 

; 68 16 ¢ MSG_ADDRCPSMSL_J = gDEVICE STATOSCI; 

; 684 16 MSG_ADDR = smasG. ADDR + .DEV_SIZE; 

: 685 1624 2 ; 

; 686 1625 § 

: 687 1626 . P 

; 688 lost 2 ! Condition vector item. 

3; 689 1628 2! 

; 690 199? 2 IF .ERR_SIZE NEQ 0 

; 691 1630 g THEN 

; 692 1631 BEGIN 

3; 693 1632 3 MSG_ADDRCSMBMSG$W_ITEM_SIZE] = 4 ¥ 

3; 694 1633 3 MSG “ADDRCSMBMSGSW_ ITEM, CODE) = snOnscse CONDITION. VECTOR; 
; 695 1634 3 MSG “ADDR = .MSG_ABDR + SMBMSG$S_ITEM 

; 696 1635 3 MSG “ADDR = CHSMOVE (.ERR_SIZE, ERRORETI, -MSG_ ADDR); 

3; 697 1636 2 END; 

; 698 1637 2 

3; 699 1638 2 

; 700 1639 2 ! Maximum streams item. 

; 701 1640 2 ! 

s 702 1641 2 IF .MAX_SIZE NEQ 0 

; 703 1642 ¢ THEN 

; 704 1645 BEGIN 

; 705 1644 3 MSG_ADDRCSMBMSGS$W_ITEM_SIZE] = ZE; 

; 706 1645 3 MSG_ ADDR SMBMSGSW_ ITEM_ CODE) = Smmscee MAX IMUM_ STREAMS; 
s 707 1646 3 MSG_ADDR = .MSG_ADDR + SMBMSGS$ Anes HEADER; | 
: 708 1647 3 MSG_ADDRCPSMSL_J = "MAXIMUM, § _ 

; 709 1648 3 MSG_ADDR = MSG “ADDR + MAX “315 

s 710 1649 2 3 

TS a 1650 2 

s fi2 1651 2 

s 713 1652 2 ! Trailing zero longword 

: 716 1653 2! 

s 715 1654 § -MSG_A = 0; 

: 716 1655 2 MSG_ ADDR = ~ .MSG_ADDR + 4; 

: 717 1656 § 

; 718 1657 

2 ahs 1638 WRITE _MAILBOX (.DSB, .MSG_ADDR - .DESC_ADDR_ (DSBCDSB_Q_DESC])); 
: 721 1660 2 SS$_NORMAL 

Bere 1661 

s 235 1662 1 END; 
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07FC 00000 ENTRY SMBS SEND TO_JOBCTL, Save R2,R3,R4,R5,R6,R7,-; 1440) 
MOVAB STRSANALYZE_SDESC, R10 | 


5A 000000006 00 95 9002 : | 
SE 18 C2 0000 SUBL2 #24, SP : 
04 AE 04 0000C CLRL  ACC_SIZE + 1448 
0c AE D4 OOOF CLRL = CKPSIZE : | 
58 7C 00012 CLRO  —s ERRSIZE : 
57 D4 00014 CLRL MAX“SIZE : | 
52 D4 00016 CLRL REQ™SIZE : | 
02 6C 91 00018 CMPB sé, 2 + 1499. 
11 1F 0001B BLSSU 1$ : | 
08 AC D5 90010 TSTL  8(AP) : | 
0C 13 00 : BEQL ~=s«d1$ : 
52 04 D0 000 : MOVL #4, REQ SIZE + 1502 | 
04 08 BC D1 9008 CMPL § @REQUEST, #4 : 1503) 
03 12 00029 BNEQ 1$ : 
57 04 D0 00028 MOVL #4, MAX_SIZE ; 1505. 
03 6C 91 OOOZE 1S: CMPB sé), #3 : 1511) 
10 1 00031 BLSSU F 
Oc aC D5 00033 TSTL 12(AP) : 
0B 13 00036 BEQL 2$ : 
5E DD 00038 PUSHL SP + 1513) 
08 AE 9F OO03A PUSHAB ACC_SIZE : 
0C AC DD 0003p PUSHL ACCOUNTING 3 
6A 03 FB 00040 CALLS #3, STRSANALYZE_SDESC : 
04 6C 91 00043 2$: CMPB)s( AP), #4 + 1518) 
11 1F 00046 BLSSU ; | 
10 AC DS 00048 TSTL  16(AP) : | 
OC 13 00048 EQL : 
08 AE 9F 00040 PUSHAB CKP_ADDR : 1520 
10 AE 9F 00050 PUSHAB CKP7SIZE : | 
10 AC DD 00053 PUSHL CHECKPOINT : 
6A 03 FB 00056 CALLS #3, STRSANALYZE_SDESC : 
05 6C 91 00059 3s: CMPB) CCAP), #5 + 1525 
08 1F 0005C BLSSU : 
14 AC D5 0005E TSTL  20¢AP) : 
03 13 00061 BEQL 6 4$ : 
59 04 pd 00063 MOVL #4, DEV_SIZE : 1527. 
06 6C 91 00066 4s: CMPB «CC AP), #6 > 1532 | 
OA 1F 00069 BLSSU ; | 
18 AC D5 00068 TSTL 24(AP) : 
05 13 0006 BEQL F | 
58 18 «BC 02 78 0007 ASHL #2, @ERROR, ERR SIZE > 1534 | 
50 38 04 AE C1 9007 5$: ADDL3 ACC_SIZE, REQ_STZE, RO > 1545 | 
5 OC AE CO O007A ADDL2  CKPTSIZE. R : 1548 | 
50 59 €O 0007E ADDL2 DEVTSIZE. RO > 1551, 
50 58 CO 00081 ADDL ERR SIZE, RO : 1554 
10 AE 20 A740 9E 00084 MOVAB 32(MAX_SIZE)CRO3, MSG_SIZE : 1559 | 
10 AE 9F OOO8A PUSHAB MSG_SIZE > 1564 | 
18 AE 9F 0008D PUSHAB DSB : 
000000006 00 02 FB 00090 CALLS #2, PSMSALLOCATE_DSB : 
26 14 AE DO 00097 MOVL DSB, R6 > 1565 | 
5 0C A6 DO 0009B MOVL 12(R6), MSG_ADDR ; | 
83 08 Bh 009F MOV) #8, (MSG_ADDR)+ : 1570. 
83 01 90 Bane MOVB #1, (MSG_ADDR)+ : 1571 | 
83 04 BC 90 000A MOVB aSTREAM,~(MSG_ADDR) + > 1573) 
2 D5 000A9 TSTL REQ SIZE ; 1579 | 
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y0e~000 UAIT.FOR_NON AST 132808-198e 03:3 715 PRISMB SREISERVI CES .03951 ’ 183. 
> 725 1663 1 GLOBAL ROUTINE PSMSWAIT_FOR_NON_AST ( %SBTTL ‘'WAIT_FOR_NON_AST’ 

; 726 1664 1 BUFFER, 

3 fer 166" 1 SIZE : REF $WORD !®! NOT REFERENCED 2??? 

: 728 1666 1 )= 

: 729 1667 BEGIN 

; 750 1668 ++ 

>; «731 1669 : 

: is 1670 ! FUNCTIONAL DESCRIPTION: > 

: ay 167) Waits for work scheduled by an ast-level routine. 
3 35> 1878 ! INPUT PARAMETERS: f 
; 736 1674 ; BUFFER - Descriptor of a buffer to receive the paramter block. 
s 37 1675 ' - Word to receive the paramter block size. 

; 738 1676 : 

; (3 1677 § ! IMPLICIT INPUTS: 

; 740 1678 ; <tbs> - Work gueue header. 

s 761 1679 2! <tbs> - Descriptor queue header. 

: 74 1680 5 : 
3; 74 1681 ' OUTPUT PARAMETERS: 
> 744 1682 2! NONE 

> «745 1683 2! 
3: 746 1684 2 ! IMPLICIT OUTPUTS: 

: 747 1685 2! NONE 

: 748 1686 2! 

: «749 1687 2 ! ROUTINE VALUE: ; 
: 750 1688 : SS$_NORMAL - Normal successful completion. 

3 3) 1689 : LIBS_INVARG - Invalid argument. 

; Toe 1690 : —_— - Any return from LIBSSCOPY_xxxx routines. 

3; 77335 1691 2! 

3: 754 1696 2 ! SIDE EFFECTS: 

; 35 169 § : NONE 
; 756 1694 ‘ 
s Tor 1695 2 !-- 

: 758 1696 2 

: 759 1697 2 LOCAL | 
: 0 1698 § DSB : REF $BBLOCK 
: 1699 : 

: 1700 2. | 
: 1703 § Hibernate until there is work to do 

; 1703 WHILE REMOVE_HEAD_ (DSB, NON_AST_QUEUE) DO SHIBER; | 
: 1706 DSB = .DSB -"SBYTEOFFSET (DSB_Q_GLINKS); 

; 1706 COPY_DX_DX_ (DSBCDSB_Q_DESC], .BUFFER); 

M4 | 
: 1708 PSMSDEALLOCATE_DSB (.DSB); 
: 1710 2 SS$_NORMAL | 
; 1711 | 
: 1712 1 END; 


| 
000C 00000 ENTRY PSMSWAIT_FOR_NON_AST, Save R2,R3 : 1663 | 
53 0000" DF OF 00002 ; 170 


1$: REMQUE @NON_AST"QUEOE, BSB 
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; Routine Size: 59 bytes, Routine Base: CODE + 0364 


lege 
PRTSMB.SRCJS 


2$ 
#0, SYSSHIBER 
1$ 


8(DSB) 

BUFFER 

#2, STRSCOPY_DX 
* STATUS 


5 taaataincaytci sc 


rane 
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vee tts READ MAILBOX 14- =3007 138% 05:30:03 PRTSMB. SRC SERVICES. “B33. ° a9 | vO: 
s 776 1713 1 ROUTINE READ_MAILBOX ( X%SBTTL *READ_MAILBOX' : 
. wer 1714 1 0B : REF $BBLOCK : 
: 778 1715 1 ) : NOVALUE = : 
; 779 1716 BEGIN : 
; 780 1717 'o4 : 
s 781 1718 i ’ 
; 1719 ! ee ee. DESCRIPTION: ; 
3 Ay 1730 } Queues an ast read to the input mailbox. : 
; 785 17¢¢ 2 | INPUT PARAMETERS: ; 
3 ree if ? 2 108 - Address of an Input/Output control block ; 
AB 2AM 4] URED ses ected roe 7 
2 ! - Input ma ox channel. ; 
; 790 1727 2! % . 
; 791 1728 § !' OUTPUT PARAMETERS: 
; 792 1729 ! NONE 
3; 793 1730 § ! 
3; 794 1731 ! IMPLICIT OUTPUTS: 
3; «795 1732 2! NONE 
; 796 17353 2! 
; 797 1734 2 ! ROUTINE VALUE: 
; 798 1755 2! SS$_NORMAL - Normal successful completion. f 
3; 799 1736 2! — - Any QI0 system service error. 
; 800 "3 2 
; 801 1738 2 ! SIDE EFFECTS: 
; 802 1739 2! An read 1/0 is queued. 
; 803 1740 2! 
: 804 1741 2 !-- 
; 805 reg 2 
; 806 P 174 2 SIGNAL_IF_ERROR_ ($QI10 ( 
; 807 P1744 2 FUNC=T0$_READVBLK, 
: 808 P1745 2 CHAS. GAB CHAN, 
; 809 P 1746 2 10S8=10BC108_Q JOSB), 
; 810 P1747 2 ASTADR= READ eRATLBOX “AST, 
s Bil P 1748 2 ASTPRM=.10B, 
s 812 P1749 2 P1=.DESC_ADDR_ (lost OB Q_BUFFER]), 
; 813 P 1750 2 P2=.DESC “SIZE_ (108C10B-Q"BUFFERJ) 
3; 814 1751 2 »); 
3: 815 1752 2 
; 816 1753 2 SS$_NORMAL 
s 8i7 1754 2 
; 818 1755 1 END; 
-EXTRN SYS$QI0 
0004 00000 READ_MAILBOX: 
-WORD Save R2 s 1713 | 
7E 7C 00002 CLRQ -(SP) s 1751 | 
7E 7C 00004 CLRQ -(SP) 3 
51 04 AC 00 it 3 MOVL 190 R1 3 
50 1¢ Al YE OOOOA OVAB 28(R1), RO ; 
7E 60 3C OO00E MOVZWL (RO), -(SP) : 
04 AO DD 00011 PUSHL  4(ROS ; 
51 DD 00014 PUSHL R11 : 


D 15 
Woe 800° ne eee eet a Ee Ste TTS TREE 
0090v CF OF 0016 PUSHAB R ADM AILBOX_AST 
C Al OF 1A PUSHAB 12(RT) 
31 po 001D PUSHL #49 
7E 0000° cr C OOOTF MOVZWL IMBX_CHAN, =(SP) 
E D4 00024 CLRL  =( SPY 
000000006 99 Of FB 99 3 CALLS #12, SY yssa10 
D9 002D MOVL RO, STATUS 
2g E8 000 BLBS STATUS, fh 
52 DD 000 PUSHL STATUS 
000000006 00 01 FB 000 CALLS #1, LIBSSIGNAL 
04 0003C 1$: ET 


; Routine Size: 61 bytes, Routine Base: CODE + 039F 
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v04-000 AD_MAILBOX_AST 14-Sep-1984 12:55:15 PRTSMB.SRCJSERVICES.B32;1 (12). 

: 820 1756 1 ROUTINE READ_MAILBOX_AST ( %SBTTL 'READ_MAILBOX_AST' ; 
; 821 edd 1 : REF $BBLOCK 3 
$ Bs¢ 1758 1 ) : NOVALUE = $ 
; & 1759 BEGIN 3 
$ ase 1760 144 3 
; 825 1761 ! ; 
; 826 1706 ' FUNCTIONAL DESCRIPTION: F 
3 Ger 176 ‘ Reads a message from the input mailbox and performs basic ; 
; 828 1764 : validity checking. : 
; 194 1765 ' 3 
; 830 1766 ! INPUT PARAMETERS: ; : 
3 oa) 17ef 108 - 10 area structure, includes IOSB and buffer. : 
3 833 1769 § ! IMPLICIT INPUTS: ; 
; 834 1770 : NONE : 
; 835 1771 2! 3 
; 4836 1772 2 ! OUTPUT PARAMETERS: : 
g Oar 1775 2! NONE 3 
; 838 1774 2! : 
> 839 1775 2 ! IMPLICIT OUTPUTS: $ 
; 840 1776 2! NONE $ 
> 841 1777 2! 3 
; 842 1778 2 ! ROUTINE VALUE: : 
> «843 1779 2! NONE 3 
> B44 1780 2! 3 
3; 845 1781 2 ! SIDE EFFECTS: : 
; 846 1782 2! The message is placed in the message queue. If user level is ; 
> 847 1783 2! waiting for a message a wakeup is scheduled. ; 
; 848 1784 2! $ 
; 849 1785 2 !-- 3 
; 850 1786 2 : 
: 851 1787 2 LOCAL 3 
s Be 1788 2 DSB: REF $BBLOCK ¢ 
> 853 1789 2 3 3 
; 854 1790 2 : 
; 855 1791 2 BIND $ 
; 856 1792 2 BUFFER = .DESC_ADDR_ (IOBCIOB_Q_BUFFERJ) : $BBLOCK : 
s 857 1793 2 : : 
; 858 1794 2 3 
3 8359 1795 2 ! Abort if any errors : 
; 860 1796 2! : 
; 861 1797 2 IF NOT .IJOBCIOB_W_IO_STATUS] F 
; 862 1798 2T 3 
; 367 f 8 4 § SIGNAL (.1OBCIOB_W_IO_STATUS)); : 
; 865 1801 2 IF .BUFFERCSMBMSG$B_STREAM_INDEX] GEQU .MAXIMUM_STREAMS : 
; 866 1802 § THE : 
; 867 1803 BEGIN : 
; 868 1804 SMBSSEND_TO_JOBCTL ( ; 
; 869 1805 ZREF ( -BUFERD SmBnSGS8 _STREAR INDEX]), ! Stream number : 
; 870 1806 ZREF (.BUFFERCSMBMSG$W_REQUEST_CODE]), ! Responding to ... 3 
; (871 1807 . ! No accountin : 
, Of 1808 0, ' No checkpoin ; 
; 87 1809 0 ' No device status 3 
; ore 1319 UPLIT (1, SMBS$_INVSTMNBR) ! Condition vector ; 
; 876 1812 READ_MAILBOX (.10B); 3 


eee ——— 
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V “O00 READ_MAILBOX_AST 14-Sep-1984 15:89:92 PRTSMB.SRC SERV! CES. 6331 - a3) 
; 877 1813 RETURN; $ 
: 878 1814 END; 3 
; 879 1815 3 
; 880 1816 3 
: oa) sit } Copy the message to dynamic memory ; 
; 1819 PSMSALLOCATE DSB (DSB); : 
> 884 P 1820 COP (To wet W io LENGTH], .DESC_ADDR_ (IOBCI0B_Q_BUFFERI), $ 
; 885 1821 2 SBCDSB_G_DESCJ); : 
; 886 18 ¢ 2 : 
; 887 18 é : 
: eae \% : § Place in message queue and wake up user if empty ; 
: 890 1826 é iF INSERT_TAIL_ (DSBCDSB_Q_QLINKS], MESSAGE_QUEUE) ' True if empty | ; 
3 892 1828 2 SIGNAL_IF_ERROR_ (SWAKE ()); : 
; 893 44 2 3 
: 894 1830 2 3 
>; 895 1831 2 ! Queue another read from the mailbox. : 
; 896 1832 2! 3 
; 897 1833 2 READ_MAILBOX (.10B); : 
; 898 1834 2 : 
; 899 1835 $ 3 
; 900 1836 ! Call user AST routine if any 3 
z 901 1837 2! ; 
; 902 1838 2 IF .MESSAGE_AST_ROUTINE NEQ 0 : 
> 903 1839 2 THEN - 
; 904 1840 2 BLISS (.MESSAGE_AST_ROUTINE); ; 
: 905 1841 2 3 
; 906 1842 1 END; 3 
00000001 O03DC P.AAG: .LONG 1 : ; 
000000006 003E0 - LONG SMB$_INVSTMNBR ; : 
003C 00000 READ_MAILBOX_AST: é 
WORB Save R2,R3,R4,R5 ; 1756 | ; 
55 AF 9E 00002 MOVAB READ_MAILBOX, R5 3 : 
54 00000000G 00 43 00006 MOVAB LIBSSIGNAL, R4 $ 3 
5E 0c C2 00000 SUBL2 #12, SP 3 3 
26 04 AC DQ 00010 MOVL 198 R2 : 1792 : 
5 20 A2 00 00014 MOVL (R2), R3 : : 
07 Oc A2 5e 00018 BLBS 12(R2), 1$ : 1797. 3 
7E 0c A2 C 0001C MOVZWL 12(R2), -(SP) 3; 1799. 3 
64 01 FB 00020 CALLS #1, LIBSSIGNAL ; | : 
03 =A3 08 00 ED 00023 1$: CMPZV) «= #0, #8, 3(R3), MAXIMUM_STREAMS 3; 1801 | 3 
21 1F 00028 BLSSU  2$ 3 | 3 
C8 AF 9F 0002D PUSHAB P.AAG : 1810. 3 
7E 7C 00030 CLRQ -(SP) > 1804. ¢ 
3 Be ET CLRL thay. : : 
14 AE 6 C 00034 MOVZWL (R3), 20(SP) 3: 1806. ‘ 
14 AE 9F 00038 PUSHAB g0(sP) : | ; 
14 AE 03 AS 9A 30078 MOVZBL (R3), 20(SP) ; 1805) : 
14 AE 9F 0004 PUSHAB 20(SP5 ; | : 
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ver-dtb Syabiont Services -- Shareable Routines 1b-5ep-198 2 98: 30:93 VAX-11 Bliss-32 vege 236 Page 3] 
WRITE_MAILBOX 14-Sep-19 CPRTSMB.SRCISERVICES.832;1 (13) 
908 1843 1 ROUTINE WRITE fAlibox ( gserr *WRITE_MAILBOX' ; 
909 1844 1 DSB REF $BBLOCK : 
910 1845 1 SIZE 3 
911 1846 1 ) : NOVALUE = F 
a 1847 BEGIN 3 
91 1848 l++ F 
914 1849 ' 5 
915 1850 2! FUNCTIONAL DESCRIPTION: : 
916 1851 : Queues a message to the output mailbox. ; 
917 S26 ! F 
918 185 ' INPUT PARAMETERS: é 
919 1854 : DSB - Dynamic string block containing the message. . 
ast 1322 } SIZE - True size of message (DSB gives buffer size) : 
922 1857 2 ! IMPLICIT INPUTS: ; 3 
923 1858 2! OMBX_ CHAN - Onput mailbox channel. ; 
924 1859 2! 3 
925 1860 2 ! OUTPUT PARAMETERS: : 
926 1861 2! NONE F 
927 1862 2! 3 
928 1865 2 ! IMPLICIT OUTPUTS: ; 
929 1864 2! NONE 5 
930 1865 2! : 
931 1866 2 ! ROUTINE VALUE: 5 
932 1867 2! NONE 3 
933 1868 2! 3 
934 1869 2 ! SIDE EFFECTS: ; ; 
935 1870 2! A write 1/0 is queued. ; 
936 1871 2! 3 
937 1872 2 !-- g 
938 1873 2 a 
939 1874 2 ; 
940 P 1875 2 SIGNAL_IF_ERROR_ ($Q]0 ( 3 
941 P 1876 2 FUNC=TO$ URTTEVELK, | : 
942 P 1877 2 CHAN=. os CHAN, F 
943 P 1878 2 P1=.DESC ADDR (DSBCDSB_Q_DESCJ), 3 
944 1879 2 P2=.SIZE); | 3 
945 1880 2 : 
946 1881 1 END; : 
0004 00000 WRITE_MAILBOX: 3 
«WORD Save R2 : 1843 - 
7E 7C 00002 CLRQ = =(SP) > 1879, : 
7E 7C 00004 CLRQ -(SP) s 3 
08 AC DD 00006 PUSHL SIZE 3 3 
50 04 ac 00 44494 OVL DSB, RO 3 3 
0c AO 0D 00000 PUSHL 12(RO) 3 é 
7E 7C 00010 CLRQ -(SP) 3 3 
7E 30 7D BOO lg MOVQ #48, -(SP) : 3 
7E 0000° CF 3C 0001 MOVZWL OMBX_CHAN, ~-(SP) : $ 
E D4 OOO1TA LRL a - : 
000000006 00 OC FB Bass CALLS #12, SYS$Q10 ; g 
52 50 pdO 0002 OVL RO, STATUS 3 3 


eat Oi reteze Veet oss 
PRTSMB.SRCISERVICES.B32;1 


Sxeiens Services -- Shareable Routines 
WRITE_MAILBOX 


SERVICES 
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BSSIGNAL 


RET 


09 


000000006 00 


: 1881 


51 bytes, Routine Base: CODE + 0486 


; Routine Size: 


J 15 
984 


SERVICES Symbiont peretees -- Shareable Routines 16-Sep-1 2:30:05 AX-11 Bliss-32 V PS at 
voe~000 URI TE MA _MAILB 14- = 30071384 95:20:02 PRISMB’S Reis SERVIC ES. 63551 
: 948 1 HY; 1€E 
; 949 1883 0 ELUDON 
-EXTRN LIBSSIGNAL, LIBS$STOP 
; PSECT SUMMARY 
; Name Bytes Attributes 
: DATA 36 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; CODE 1209 NOVEC, *NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
Pare a i ee ee eee SYERSLE ooseasce Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 49 0 1000 00:01.9 
P4 COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:SERVICES/OBJ=OBJ$:SERVICES MSRC$:SERVICES/UPDATE=(ENH$: SERVICES) 
3; Size: 1151 code + 94 data bytes 
3; Run Time: 0:30. 
; Elapsed Time: 00:38.5 
3 Lines/CPU Min: 3664 
3; Lexemes/CPU-Min: 28014 
; penees Used: 255 pages 
; Compilation Complete 
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